home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
BBS Toolkit
/
BBS Toolkit.iso
/
doors_1
/
mo_mallb.zip
/
STORES.BAS
< prev
next >
Wrap
BASIC Source File
|
1992-04-21
|
1KB
|
34 lines
The Following is the QBasic source to read the IDX and DAT files for
the MO-MALL Store files. I have included it in case you would like to
make anything that utilizes the files or anything else. It is basically
self explanatory. The BLANK was reserved for a feature that was never
added but I decided to reserve it in case anything needs to be added that
i missed or if any other programs want to use it.
OpenStore:
TYPE IDX
num AS INTEGER 'Internal - Used for Sorting, Etc.
pref AS STRING * 6 'Product Reference ID
sdesc AS STRING * 54 'Short Description
desc1 AS INTEGER 'Location of each of the lines in
desc2 AS INTEGER 'the description or 0 if there is
desc3 AS INTEGER 'no line to refer to. I did it in
desc4 AS INTEGER 'this format so that descriptions
desc5 AS INTEGER 'could be added/changed while
desc6 AS INTEGER 'hopefully keeping the code smaller
desc7 AS INTEGER 'then it need be.
BLANK AS INTEGER 'Blank - has no use (a Woops)
price AS SINGLE 'Price of the product.
END TYPE
TYPE DAT
ln AS STRING * 72
END TYPE
DIM pinfo AS IDX
DIM pdesc AS DAT
OPEN "R", 1, Store$ + ".Idx", LEN(pinfo)
OPEN "R", 2, Store$ + ".Dat", LEN(pdesc)